program procfunc;
var
	b: integer;

procedure procedurka(var A: integer);
	var
		a : integer;
	begin
		a := 1;
	end;

function f(x: real): real;
	var
		y : integer;
	begin
		y:=2;
		x:=x+y;
		f:=y;
	end;

procedure procedurka2(var B: integer);
	var
		c: integer;
	begin
		c := 2;
		B := c;
	end;

begin
	b := 2;
	procedurka(b);
	b := f(b);
end.
